home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BUSINESS / SALE24.ARJ / DBFAST.PRG < prev    next >
Text File  |  1992-06-13  |  768b  |  36 lines

  1. PROCEDURE pack_file
  2. * Packs a database file in the work area
  3. * passed to the procedure
  4. * Syntax:
  5. * DO pack_file WITH x  && (x = work area to pack)
  6.  
  7. PARAMETER work_area
  8. PRIVATE orig_area, temp_file
  9.  
  10. * Store original work ara for later return
  11. * and select new area
  12.  
  13. STORE SELECTED(work_area) TO orig_area
  14.  
  15. * Loop to ensure random file name doesn't 
  16. * already exist
  17.  
  18. STORE ALLTRIM(STR(RANDOM())) + ".DBF" TO temp_file
  19. DO WHILE FILE(temp_file)
  20.     STORE ALLTRIM(STR(RANDOM())) + ".DBF" TO ;
  21.     temp_file
  22. ENDDO
  23.  
  24. * PACK file using copy to/from a temp file
  25.  
  26. COPY TO &temp_file FOR .NOT. DELETED()
  27. ZAP
  28. APPEND FROM &temp_file
  29. DELETE FILE &temp_file
  30.  
  31. * SELECT original work area before returning
  32.  
  33. SELECT (orig_area)
  34.  
  35. RETURN
  36.